home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00060_Script_system < prev    next >
Text File  |  1999-04-25  |  2KB  |  70 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13. -------*This script is not used in this version of the movie*----------
  14.  
  15. property sprt
  16.  
  17. on getPropertyDescriptionList
  18.   set description=[:]
  19.   
  20.   addProp description,#sprt,[#default:"",#format:#integer, ¼
  21.   #comment:"The sprite number of menu item 1(has to be a puppetsprite)"]
  22.   
  23.   return description
  24. end
  25.  
  26. on getbehaviorDescription
  27.   return "system behaviour"
  28. end
  29.  
  30. on mouseEnter me
  31.   global gSub 
  32.   if gSub <> the spritenum of me then
  33.     set the castnum of sprite the spritenum of me  to the castnum of sprite the spritenum of me  +1
  34.     updatestage 
  35.   end if
  36. end
  37.  
  38.  
  39. on mouseleave me
  40.   global gSub
  41.   if gSub <> the spritenum of me then
  42.     set the castnum of sprite the spritenum of me to the castnum of sprite the spritenum of me -1
  43.     updatestage
  44.   end if
  45. end
  46.  
  47.  
  48. on mouseup me
  49.   global gFcast,gSub
  50.   sound stop(1)
  51.   sound stop(2)
  52.   updatestage
  53.   puppetsound 3,"mousedn"
  54.   
  55.   if gSub <>the spritenum of me and gsub<>"" then
  56.     set the castnum of sprite gSub to the castnum of sprite gSub-2
  57.   end if
  58.   
  59.   updatestage 
  60.   
  61.   if gSub <> the spritenum of me then
  62.     set the castnum of sprite the spritenum of me  to the castnum of sprite the spritenum of me  +1
  63.     updatestage 
  64.   end if
  65.   
  66.   set offset = the spritenum of me - sprt +1
  67.   set the castnum of sprite 2 = gFcast + offset
  68.   set gSub = the spritenum of me
  69.   
  70. end